home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / 136_01.zip / RANDOM.C < prev    next >
Text File  |  1993-06-01  |  620b  |  39 lines
  1. /*    HEADER:  CUG136.14;
  2.     TITLE:        RANDOM;
  3.     DATE:        8/24/1983;
  4.     DESCRIPTION:    "Random number generator for C/80";
  5.     KEYWORDS:    random,number generator, psuedorandom numbers;
  6.     SYSTEM:        CP/M;
  7.     FILENAME:    RANDOM.C;
  8.     AUTHORS:    R. Rodman;
  9.     COMPILERS:    C/80;
  10. */
  11.  
  12. /* Random number generator
  13.     830823 rr dummied up
  14.     830824 rr crude algorithm */
  15.  
  16. /* init random number generator */
  17.  
  18. static unsigned seed;
  19.  
  20. srand(rtyp)
  21. int rtyp;
  22. {
  23.     seed = 5;
  24. }
  25.  
  26. /* get random number */
  27.  
  28. unsigned rand()
  29. {
  30.     unsigned oldseed;
  31.  
  32.     oldseed = seed;
  33.     seed = seed * 2;
  34.     if(seed && 020) seed = seed + oldseed;
  35.     return(seed);
  36. }
  37.  
  38.  
  39.